From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 11 Jul 2019 18:01:57 +0000 (+0200)
Subject: * test/lisp/format-spec-tests.el (test-format-unknown): Use `should-error'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2388
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=37cb129979ff1342e1b567a6f5307a0b1e1ff962;p=emacs.git

* test/lisp/format-spec-tests.el (test-format-unknown): Use `should-error'.
---

diff --git a/test/lisp/format-spec-tests.el b/test/lisp/format-spec-tests.el
index e831657a3e6..6fbfaaad83a 100644
--- a/test/lisp/format-spec-tests.el
+++ b/test/lisp/format-spec-tests.el
@@ -31,10 +31,7 @@
                  "foo        bar zot")))
 
 (ert-deftest test-format-unknown ()
-  (should (eq (condition-case _
-                  (format-spec "foo %b %z zot" '((?b . "bar")))
-                (error :error))
-              :error))
+  (should-error (format-spec "foo %b %z zot" '((?b . "bar"))))
   (should (equal (format-spec "foo %b %z zot" '((?b . "bar")) t)
                  "foo bar %z zot"))
   (should (equal (format-spec "foo %b %z %% zot" '((?b . "bar")) t)